POINT Software Programming/PPROG1.ISO/pascal/swag/screen.swg/0037_Very FAST Clear Screen.pas

Pascal/Delphi Source File | 1993-11-02 | 322 b | 18 lines

{
BRIAN PAPE

>Mike, thought i would share a different way to clear the screen
>it clears the screen directly and tends to be faster
}

Procedure ClrScr(attr : Byte; ch : Char); Assembler;
Asm
  mov  ax, $b800
  mov  es, ax
  xor  di, di
  mov  cx, 80*25
  mov  ah, attr
  mov  al, &ch
  rep  stosw
end;